home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / 9303b.lha / ARexx & Assembler / Listing1.arexx next >
Text File  |  1993-02-25  |  396b  |  19 lines
  1. /*Just DO it */
  2. DO i=1 TO 7                  /* FOR i=1 TO 7:PRINT i:NEXT */
  3.   SAY i
  4. END
  5. SAY DO i=1 TO 7 BY 2  /* FOR i=1 TO 7 STEP 2:PRINT i:NEXT */
  6.   SAY i
  7. END
  8. SAY DO WHILE i<20        /* WHILE i<20:PRINT i:i=i+4:WEND */
  9.   SAY i
  10.   i=i+4
  11. END
  12. SAY DO UNTIL i<10    /* Nicht direkt in BASIC übertragbar */
  13.   SAY i
  14.   i=i-5
  15. END
  16. SAY DO
  17. SAY "Das war's"                      /* PRINT "Das war's" */
  18. END
  19.